unit TestKistaslari;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClass, XPMan, StdActns, ActnList, Grids, Wwdbigrd, Wwdbgrid,
  DB, ADODB, Mask, wwdbedit, Wwdotdot, Wwdbcomb, StdCtrls, wwdblook;

type
  TfmTestKistaslari = class(TfmFormClass)
    aqEntry: TADOQuery;
    dsEntry: TDataSource;
    grdListe: TwwDBGrid;
    Yapilanislem: TADOQuery;
    Tekniktipi: TADOQuery;
    Bolumlc: TwwDBLookupCombo;
    OnayDurumcb: TwwDBComboBox;
    Yapilanislemlc: TwwDBLookupCombo;
    GrDurumu: TwwDBComboBox;
    UstGruplc: TwwDBLookupCombo;
    Gruplc: TwwDBLookupCombo;
    aqSube: TADOQuery;
    lcsube: TwwDBLookupCombo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmTestKistaslari: TfmTestKistaslari;

implementation
uses data;
{$R *.dfm}

procedure TfmTestKistaslari.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmTestKistaslari := nil;
end;

procedure TfmTestKistaslari.FormCreate(Sender: TObject);
begin
  inherited;
  Yapilanislem.Open;
  Tekniktipi.Open;
  aqSube.Open;
  aqEntry.Open;
end;

end.

